home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Prog / T / Think-Pascal-7.0.cpt / THINK Pascal Interfaces / ShutDown.p < prev    next >
Encoding:
Text File  |  1991-04-03  |  1.0 KB  |  57 lines  |  [TEXT/PJMM]
  1. {    This file has been processed by The THINK Pascal Source Converter, v1.1.    }
  2.  
  3. {
  4. Created: Sunday, January 6, 1991 at 11:15 PM
  5.     ShutDown.p
  6.     Pascal Interface to the Macintosh Libraries
  7.  
  8.         Copyright Apple Computer, Inc.    1987-1989
  9.         All rights reserved
  10. }
  11.  
  12.  
  13. {$IFC UNDEFINED UsingIncludes}
  14. {$SETC UsingIncludes := 0}
  15. {$ENDC}
  16.  
  17.  
  18.     UNIT ShutDown;
  19.     INTERFACE USES    Types;
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33. CONST
  34. sdOnPowerOff = 1;       {call procedure before power off.}
  35. sdOnRestart = 2;        {call procedure before restart.}
  36. sdOnUnmount = 4;        {call procedure before unmounting.}
  37. sdOnDrivers = 8;        {call procedure before closing drivers.}
  38. sdRestartOrPower = 3;   {call before either power off or restart.}
  39.  
  40. PROCEDURE ShutDwnPower;
  41.     INLINE $3F3C,$0001,$A895;
  42. PROCEDURE ShutDwnStart;
  43.     INLINE $3F3C,$0002,$A895;
  44. PROCEDURE ShutDwnInstall(shutDownProc: ProcPtr;flags: INTEGER);
  45.     INLINE $3F3C,$0003,$A895;
  46. PROCEDURE ShutDwnRemove(shutDownProc: ProcPtr);
  47.     INLINE $3F3C,$0004,$A895;
  48.  
  49.  
  50.     { UsingShutDown }
  51.  
  52.  
  53.     IMPLEMENTATION
  54. END.
  55.  
  56.  
  57.